home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / Effects Specialist.sea / EffectsSpecialistDemo™.rsrc / FYps_10005_Clipper Plus < prev    next >
Text File  |  1991-06-19  |  946b  |  30 lines
  1. %! CLIPPER PLUS 2.0
  2. %% ©1986-1991, Postcraft International, Inc., All Rights Reserved
  3. %% 91/02/24 Designed by Paul McLellan
  4. %% For use only in files created by Effects Specialist
  5. /InsideShade {Intrnals0} def
  6. /OutlineShade {Intrnals1} def
  7. /OutlineSize Intrnals2 def
  8. /ClipFont Intrnals3 def
  9. /ClipSize Intrnals4 def
  10. /InLineShade {Intrnals5} def
  11. %%
  12. /newline {currentpoint ClipSize sub exch pop lm exch moveto } def
  13. /nlifnec {currentpoint pop rm gt {newline} if } def
  14. /done? {currentpoint exch pop bm ClipSize sub lt} def
  15. /MyFpage {
  16.   ClipFont findfont ClipSize scalefont setfont
  17.   {{pop pop nlifnec} ClipStrg kshow done? {exit} if } loop} def
  18. /textEffect { FXChar exch 0 exch put
  19.   gsave FXChar TCP MyC
  20.   totKern neg 0 translate newpath 0 tm moveto
  21.   currentfont MyFpage setfont grestore  NEXT } def
  22. pop kP Intrnals6
  23. /tm /rm /bm /lm FXText BBproc
  24. /rm rm KernNet add def
  25. kF 
  26.  gsave InLineShade SMG
  27.   { kR FXText { textEffect } forall } if
  28. grestore
  29. kS
  30.